home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
editor
/
blksedtr.lha
/
BED
/
Rexx
/
PrintBlk.bed
< prev
next >
Wrap
Text File
|
1996-05-06
|
653b
|
46 lines
/*
** $VER: PrintBlk.bed 1.0 (03.01.96)
**
** Print the currently selected block
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
GetBlkInfo
PARSE VAR RESULT mode . sel_y sel_x
IF mode = "OFF" THEN DO
SetStatusBar "No block selected!"
END; ELSE DO
SetDisplayLock ON
SetInputLock ON
GetCursorPos
PARSE VAR RESULT y x .
TaskID = Pragma('ID')
SaveClip QUIET NOICON NOBACKUP 'T:OldClip' || TaskID
CopyBlk
PrintClip name
OpenClip 'T:OldClip' || TaskID
Move sel_y sel_x
MarkBlk
Move y x
SetDisplayLock OFF
SetInputLock OFF
END
IF ~Show(L,'rexxsupport.library') THEN DO
AddLib('rexxsupport.library',0,-30)
END;
Delete("T:OldClip-" || TaskID)